Delphi 2.0 - Programmer's Utilities Power Pack/Delphi 2.0 Programmer's Utilities Power Pack.iso/m_to_r/qrep096/mdrep.dfm/mdrep.txt

Text File | 1996-09-15 | 11.6 KB | 540 lines

object MDForm: TMDForm
  Left = 109
  Top = 229
  Width = 793
  Height = 362
  HorzScrollBar.Range = 1200
  VertScrollBar.Range = 2000
  AutoScroll = False
  Caption = 'Master Detail demo Report'
  Font.Color = clBlack
  Font.Height = -13
  Font.Name = 'Arial'
  Font.Style = []
  PixelsPerInch = 96
  ShowHint = True
  TextHeight = 16
  object Title: TQRBand
    Left = 0
    Top = 0
    Width = 1200
    Height = 53
    Align = alTop
    BandType = rbTitle
    Color = clWhite
    Font.Color = clNavy
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = []
    ForceNewPage = False
    Frame.Width = 0
    Ruler = qrrInchesHV
    object QRLabel15: TQRLabel
      Left = 84
      Top = 4
      width = 193
      height = 36
      Caption = 'QuickReport'
      AlignToBand = False
      Font.Color = 8404992
      Font.Height = -32
      Font.Name = 'Arial'
      Font.Style = [fsBold, fsItalic]
    end
    object Image1: TImage
      Left = 8
      Top = 4
      Width = 69
      Height = 33
      Picture.Data = {<image000.bmp>}
      Stretch = True
    end
    object QRLabel1: TQRLabel
      Left = 288
      Top = 20
      width = 61
      height = 16
      Caption = 'for Delphi'
      AlignToBand = False
      Font.Color = 8404992
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold, fsItalic]
    end
    object QRLabel16: TQRLabel
      Left = 540
      Top = 20
      width = 200
      height = 16
      Caption = 'Copyright (c) 1995 Allan Lochert'
      AlignToBand = False
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold, fsItalic]
    end
  end
  object CustomerHeading: TQRBand
    Left = 0
    Top = 53
    Width = 1200
    Height = 52
    Align = alTop
    BandType = rbDetail
    Color = 8404992
    ForceNewPage = False
    Frame.Width = 0
    Ruler = qrrNone
    object QRDBText1: TQRDBText
      Left = 8
      Top = 12
      width = 197
      height = 17
      AutoSize = False
      DataSource = CustomerDS
      DataField = 'Company'
      Font.Color = clWhite
      Font.Height = -16
      Font.Name = 'Arial'
      Font.Style = [fsBold, fsItalic]
    end
    object QRLabel3: TQRLabel
      Left = 8
      Top = 0
      width = 46
      height = 14
      Caption = 'Customer'
      AlignToBand = False
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
    end
    object QRLabel4: TQRLabel
      Left = 240
      Top = 0
      width = 30
      height = 14
      Alignment = taRightJustify
      Caption = 'Phone'
      AlignToBand = False
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
    end
    object QRDBText3: TQRDBText
      Left = 240
      Top = 12
      width = 109
      height = 17
      AutoSize = False
      DataSource = CustomerDS
      DataField = 'Phone'
      Font.Color = clWhite
      Font.Height = -16
      Font.Name = 'Arial'
      Font.Style = [fsBold, fsItalic]
    end
    object QRDBText4: TQRDBText
      Left = 64
      Top = 0
      width = 25
      height = 13
      Alignment = taRightJustify
      AutoSize = False
      DataSource = CustomerDS
      DataField = 'CustNo'
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
    end
    object QRLabel5: TQRLabel
      Left = 356
      Top = 0
      width = 18
      height = 14
      Caption = 'Fax'
      AlignToBand = False
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
    end
    object QRDBText5: TQRDBText
      Left = 356
      Top = 12
      width = 105
      height = 17
      AutoSize = False
      DataSource = CustomerDS
      DataField = 'Fax'
      Font.Color = clWhite
      Font.Height = -16
      Font.Name = 'Arial'
      Font.Style = [fsBold, fsItalic]
    end
    object QRLabel13: TQRLabel
      Left = 392
      Top = 36
      width = 31
      height = 14
      AutoSize = False
      Caption = 'Total'
      AlignToBand = False
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
    end
    object QRLabel12: TQRLabel
      Left = 248
      Top = 36
      width = 18
      height = 14
      Caption = 'Tax'
      AlignToBand = False
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
    end
    object QRLabel11: TQRLabel
      Left = 192
      Top = 36
      width = 24
      height = 14
      Caption = 'Price'
      AlignToBand = False
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
    end
    object QRLabel10: TQRLabel
      Left = 72
      Top = 36
      width = 22
      height = 14
      Caption = 'Date'
      AlignToBand = False
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
    end
    object QRLabel9: TQRLabel
      Left = 8
      Top = 36
      width = 41
      height = 14
      Caption = 'OrderNo'
      AlignToBand = False
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
    end
    object QRLabel14: TQRLabel
      Left = 296
      Top = 36
      width = 33
      height = 14
      Caption = 'Freight'
      AlignToBand = False
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
    end
  end
  object CustomerFooter: TQRBand
    Left = 0
    Top = 125
    Width = 1200
    Height = 31
    Align = alTop
    BandType = rbGroupFooter
    Color = clWhite
    ForceNewPage = False
    Frame.Width = 0
    Ruler = qrrNone
    object QRDBCalc1: TQRDBCalc
      Left = 344
      Top = 4
      width = 81
      height = 17
      Alignment = taRightJustify
      AutoSize = False
      DataSource = OrderDS
      DataField = 'AmountPaid'
      Operation = qrcSUM
      PrintMask = '#,##0.00'
    end
    object QRLabel7: TQRLabel
      Left = 176
      Top = 4
      width = 154
      height = 16
      Caption = 'Total sales this customer: '
      AlignToBand = False
    end
  end
  object PageFooter: TQRBand
    Left = 0
    Top = 156
    Width = 1200
    Height = 19
    Align = alTop
    BandType = rbPageFooter
    Color = clWhite
    ForceNewPage = False
    Frame.Width = 0
    Ruler = qrrNone
    object QRLabel8: TQRLabel
      Left = 4
      Top = 4
      width = 212
      height = 14
      Caption = 'QuickReport is copyright 1995 Allan Lochert'
      AlignToBand = False
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
    end
    object QRSysData1: TQRSysData
      Left = 664
      Top = 0
      width = 79
      height = 16
      Alignment = taRightJustify
      AlignToBand = True
      AutoSize = False
      Data = qrsPageNumber
      Text = 'Page '
    end
  end
  object Summary: TQRBand
    Left = 0
    Top = 175
    Width = 1200
    Height = 41
    Hint = 'QuickReport'
    Align = alTop
    BandType = rbSummary
    Color = clWhite
    ForceNewPage = False
    Frame.Width = 0
    Ruler = qrrNone
    object QRSysData2: TQRSysData
      Left = 504
      Top = 12
      width = 197
      height = 16
      AlignToBand = False
      AutoSize = False
      Data = qrsDetailCount
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      Text = 'Total number of orders : '
    end
    object QRDBCalc2: TQRDBCalc
      Left = 320
      Top = 12
      width = 105
      height = 17
      Alignment = taRightJustify
      AutoSize = False
      DataSource = OrderDS
      DataField = 'AmountPaid'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      Operation = qrcSUM
      PrintMask = ',0.00'
    end
    object QRLabel6: TQRLabel
      Left = 108
      Top = 12
      width = 164
      height = 16
      Caption = 'Total sales all customers :'
      AlignToBand = False
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
    end
  end
  object Detail: TQRBand
    Left = 0
    Top = 105
    Width = 1200
    Height = 20
    Align = alTop
    BandType = rbDetailGroup
    Color = clWhite
    ForceNewPage = False
    Frame.Width = 0
    Ruler = qrrNone
    object QRDBText11: TQRDBText
      Left = 352
      Top = 0
      width = 73
      height = 17
      Alignment = taRightJustify
      AutoSize = False
      DataSource = OrderDS
      DataField = 'AmountPaid'
    end
    object QRDBText2: TQRDBText
      Left = 4
      Top = 0
      width = 45
      height = 17
      Alignment = taRightJustify
      AutoSize = False
      DataSource = OrderDS
      DataField = 'OrderNo'
    end
    object QRDBText7: TQRDBText
      Left = 72
      Top = 0
      width = 65
      height = 17
      AutoSize = False
      DataSource = OrderDS
      DataField = 'SaleDate'
    end
    object QRDBText9: TQRDBText
      Left = 152
      Top = 0
      width = 65
      height = 17
      Alignment = taRightJustify
      AutoSize = False
      DataSource = OrderDS
      DataField = 'ItemsTotal'
    end
    object QRDBText10: TQRDBText
      Left = 232
      Top = 0
      width = 33
      height = 17
      Alignment = taRightJustify
      AutoSize = False
      DataSource = OrderDS
      DataField = 'TaxRate'
    end
    object QRDBText6: TQRDBText
      Left = 276
      Top = 0
      width = 57
      height = 17
      Alignment = taRightJustify
      AutoSize = False
      DataSource = OrderDS
      DataField = 'Freight'
    end
  end
  object MDRep: TQuickReport
    Columns = 1
    DataSource = CustomerDS
    DisplayPrintDialog = False
    LeftMarginInches = 0
    LeftMarginMM = 0
    Orientation = poPortrait
    PrintOrder = qrColByCol
    ReportTitle = 'QuickReport Master/detail demonstration'
    ReportType = qrMasterDetail
    RestartData = True
    SQLCompatible = False
    TitleBeforeHeader = False
    Left = 4
    Top = 224
  end
  object CustomerTable: TTable
    Active = True
    DatabaseName = 'DBDEMOS'
    IndexFieldNames = 'Company'
    TableName = 'CUSTOMER.DB'
    Left = 36
    Top = 224
    object CustomerTableCustNo: TFloatField
      FieldName = 'CustNo'
    end
    object CustomerTableCompany: TStringField
      FieldName = 'Company'
      Size = 30
    end
    object CustomerTablePhone: TStringField
      FieldName = 'Phone'
      Size = 15
    end
    object CustomerTableFAX: TStringField
      FieldName = 'FAX'
      Size = 15
    end
    object CustomerTableContact: TStringField
      FieldName = 'Contact'
    end
  end
  object OrdersTable: TTable
    Active = True
    DatabaseName = 'DBDEMOS'
    IndexFieldNames = 'CustNo'
    MasterFields = 'CustNo'
    MasterSource = CustomerDS
    TableName = 'ORDERS.DB'
    Left = 44
    Top = 260
    object OrdersTableOrderNo: TFloatField
      FieldName = 'OrderNo'
    end
    object OrdersTableSaleDate: TDateTimeField
      FieldName = 'SaleDate'
    end
    object OrdersTableItemsTotal: TCurrencyField
      FieldName = 'ItemsTotal'
      Currency = True
    end
    object OrdersTableTaxRate: TFloatField
      FieldName = 'TaxRate'
    end
    object OrdersTableFreight: TCurrencyField
      FieldName = 'Freight'
      Currency = True
    end
    object OrdersTableAmountPaid: TCurrencyField
      FieldName = 'AmountPaid'
      Currency = True
    end
    object OrdersTableCustNo: TFloatField
      FieldName = 'CustNo'
      Required = True
    end
  end
  object CustomerDS: TDataSource
    DataSet = CustomerTable
    Left = 68
    Top = 224
  end
  object OrderDS: TDataSource
    DataSet = OrdersTable
    Left = 76
    Top = 260
  end
  object QRDetailLink1: TQRDetailLink
    DataSource = OrderDS
    DetailBand = Detail
    FooterBand = CustomerFooter
    Left = 12
    Top = 260
  end
end